Imports DotNetNuke.UI.WebControls
Imports System.Data

Partial Class DNNMultiStateBox
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
        MyBase.OnInit(e)
        DotNetNuke.UI.Utilities.ClientAPI.HandleClientAPICallbackEvent(Me)
    End Sub

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here

        Dim stars As DotNetNuke.UI.WebControls.DNNMultiStateBox = New DotNetNuke.UI.WebControls.DNNMultiStateBox()
        stars.States.Add(New DNNMultiState("1", "Poor", "1stars.gif", "", "You did bad dude!"))
        stars.States.Add(New DNNMultiState("2", "Average", "2stars.gif", "", "You did ok!"))
        stars.States.Add(New DNNMultiState("3", "Good", "3stars.gif", "", "You did good kid!"))
        stars.States.Add(New DNNMultiState("4", "Great", "4stars.gif", "", "You did great! Get yourself some Frosted Flakes!"))
        divContainer.Controls.Add(stars)

        lblEventDetails.Text = "MyDNNMultiStateBox1.SelectedState.Key = " & MyDNNMultiStateBox1.SelectedState.Key & "<br/>" & _
            "MyDNNMultiStateBox1.SelectedState.Text = " & MyDNNMultiStateBox1.SelectedState.Text & "<br/>" & _
            "stars.SelectedState.Key = " & stars.SelectedState.Key & "<br/>" & _
            "stars.SelectedState.Text = " & stars.SelectedState.Text & "<br/>"
    End Sub

    Private Sub btnPostBack_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPostBack.ServerClick

    End Sub

End Class
